﻿Public Class frmUsuarioCalendario
    Private Sub btnAgregarFecha_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAgregarFecha.Click
        'mAdministracion
        Dim usuario As New frmUsuario()
        usuario.txtFecNacimiento.Text = MonthCalendar1.SelectionRange.Start.ToShortDateString()
    End Sub

    Private Sub frmCalendario_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        frmuser = False
    End Sub

    Private Sub frmCalendario_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class